ANGLE = VAL(COMMAND$)
ABSANG = ANGLE * .66 + 45
IF ABSANG + 10 > STICK(0) AND ABSANG - 10 < STICK(0) THEN SYSTEM
IF ABSANG > STICK(0) THEN
  OUT 888, 1
  DO UNTIL ABSANG < STICK(0)
  LOOP
  OUT 888, 0
ELSEIF ABSANG < STICK(0) THEN
  OUT 888, 2
  DO UNTIL ABSANG > STICK(0)
  LOOP
  OUT 888, 0
END IF
SYSTEM

